# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
## Getting information about two example Facebook Pages
fb.pages <- FacebookPagesCollection(id = c("9thcirclegames",
"NathanNeverSergioBonelliEditore"),
token = fb_oauth)
## Pull at most 20 albums from each page
fb.albums <- FacebookAlbumscollection(id = fb.pages, token = fb_oauth, n = 20)
## Create a new collection skipping the first 10 albums
fb.oldest.albums <- fb.albums[11:length(fb.oldest.albums)]
# }
Run the code above in your browser using DataLab